﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	用户名升级页面
'	2012.9.10

Sub main
	checkLogin()'验证登录
	Dim a,userid,rs,body_,exp_
	Dim name,nameLen
	Dim userLevel,userExp
	hu.title = "提升等级"
	body_ = "[div=nav]-"&hu.url("?aid=index","首页")&"-"&hu.url("bbs_user.asp","会员中心")&"-提升等级[/div]"
	a=getN("a", 0)
	userExp=0
	userid=user_array(0)
	userLevel=user_array(2)
	Set rs=hu.conn("select top 1 experience from 74hu_user where id="&userid)
	If Not rs.eof Then
		userExp=rs("experience")
	End If
	Set rs=Nothing
	exp_=getExperienceByLevel(userLevel+1)
	If a=0 Then
		body_ = body_ & "你的等级是"&userLevel&"级，升到"&(userLevel+1)&"级所需要的经验是"&exp_&"点<br/>你目前"
		If userExp>=exp_ Then
			body_ = body_ & "有"&userExp&"点经验，现在可以升级<br/>"&hu.url("bbs_update.asp?a=1","我要升级")
		Else
			body_ = body_ & "只有"&userExp&"点经验，暂时不能升级，请攒足经验再过来"
		End If
		body_ = body_&"<br/>"&hu.url("bbs_user.asp","返回会员中心")
	Else
		hu.conn("update 74hu_user set experience=experience-"&exp_&",hu_level=hu_level+1 where id="&userid&" and experience>="&exp_)
		body_ = body_ & "提升等级成功!<br/>"&hu.url("bbs_user.asp","返回会员中心")
	End If
	hu.body = comUbb(body_)
End Sub

%>